00400	C***** ROFF,NOZERO,RHORZ
50600	
50700		FUNCTION ROFF(R)
50800	C FOR ROUND OFF
50900		S=.5
51000		IF(R.LT.0)S=-S
51100		ROFF=R+S
51200		END
51300	
51400		SUBROUTINE NOZERO(X)
51500		IF(X.EQ.0)X=1.
51600		END
51700	
51800		SUBROUTINE EXCH(X,Y)
51900		Z=X
52000		X=Y
52100		Y=Z
52200		END
52300	
52400		FUNCTION RHORZ(R)
52500		RHORZ=R*5.96-596.
52600		END
52700	C  ADJUST BH AND FL FOR HEIGHT OF NOTE AND 'WIDTH'
57500	
59300		FUNCTION RTLINE(L)
59400		COMMON R2,JA,CENTR,J2,RJQ(20),JQ(20)/XRN/RN(1)
59500	C CHECKS TO SEEIF R2 HAS STAFF NUM DESIRED.  (IF >7, ALL STAVES OK)
59600		IF(R2.GT.7)GO TO 1
59700		IF(RN(L+2).NE.R2)GO TO 2
59800	1       RTLINE=0
59900	C RIGHT STAFF
60000		RETURN
60100	2	RTLINE=-1
60200	C WRONG STAFF
60300		END